home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / procs / _rootpower.amos / _rootpower.amosSourceCode
Encoding:
AMOS Source Code  |  2008-12-10  |  332 b   |  11 lines
  1. Z#=-9.0 : P#=3.0
  2. Print P#;"te Wurzel aus";Z#;" =";
  3. ROOT[Z#,P#] : Print Param#
  4. Print Param#;" hoch";P#;" =";
  5. POWER[Param#,P#] : Print Param#
  6. Procedure ROOT[A#,B#]
  7.    B#=1/B# : POWER[A#,B#] : ERG#=Param#
  8. End Proc[ERG#]
  9. Procedure POWER[A#,B#]
  10.    B=B# : A=A# : ERG#=A#^B# : If Sgn(A)=-1 Then If B/2*2<>B Then ERG#=ERG#*-1
  11. End Proc[ERG#]